|
|  Chelicera
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Chelicera"

  FLAGS ClickFly AnimateFly
  PACKS 1
  WIDTH 8 * CW
  HEIGHT 15 * CH
  ZEROTOWIN 4 - SEQUENCES$3

  STACK
    X 7 * CW
    Y 0
    MAX 0
    DEAL 15
    DEALTO 3,3
    TAKEFROM 0
    DRAGUPTO 0
    FLAGS PaintCount DealToEmpty
    ID 2
  END

  FOR stack = 0 TO 3
    STACK
      X stack * CW
      Y 0
      FIRST 13
      FirstFrom 2,3
      ID 3
      JOINOFFSET -1
      Sequence SeqSS__, x13, -1, 13
      DEAL 4,0
      FLAGS ShallowCheck JoinSS__ ClickFly
    END
  END

  FOR stack = 4 TO 6
    STACK
      X stack * CW
      Y 0
      FIRST 13
      FirstFrom 2,3
      ID 3
      JOINOFFSET -1
      Sequence SeqSS__, x13, -1, 13
      DEAL 7, 0
      FLAGS ShallowCheck JoinSS__ ClickFly
    END
  END

END
